home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
amok
/
051-060
/
amok52
/
abitur
/
txt
/
faechernamen.mod
< prev
next >
Wrap
Text File
|
1993-11-04
|
2KB
|
43 lines
IMPLEMENTATION MODULE FaecherNamen;
FROM Str IMPORT Copy;
BEGIN
Copy(FaecherNamen[Turnen ].ShortCut, "T");
Copy(FaecherNamen[Turnen ].VollName, "Turnen");
Copy(FaecherNamen[Geographie].ShortCut, "Gg");
Copy(FaecherNamen[Geographie].VollName, "Geographie");
Copy(FaecherNamen[Geschichte].ShortCut, "Gs");
Copy(FaecherNamen[Geschichte].VollName, "Geschichte");
Copy(FaecherNamen[Franz ].ShortCut, "Fr");
Copy(FaecherNamen[Franz ].VollName, "Franz");
Copy(FaecherNamen[Deutsch ].ShortCut, "D");
Copy(FaecherNamen[Deutsch ].VollName, "Deutsch");
Copy(FaecherNamen[Englisch ].ShortCut, "E");
Copy(FaecherNamen[Englisch ].VollName, "Englisch");
Copy(FaecherNamen[Latein ].ShortCut, "L");
Copy(FaecherNamen[Latein ].VollName, "Latein");
Copy(FaecherNamen[Zeichnen ].ShortCut, "Z");
Copy(FaecherNamen[Zeichnen ].VollName, "Zeichnen");
Copy(FaecherNamen[Werken ].ShortCut, "W");
Copy(FaecherNamen[Werken ].VollName, "Werken");
Copy(FaecherNamen[Musik ].ShortCut, "Mu");
Copy(FaecherNamen[Musik ].VollName, "Musik");
Copy(FaecherNamen[Mathe ].ShortCut, "M");
Copy(FaecherNamen[Mathe ].VollName, "Mathe");
Copy(FaecherNamen[Physik ].ShortCut, "Ph");
Copy(FaecherNamen[Physik ].VollName, "Physik");
Copy(FaecherNamen[Chemie ].ShortCut, "Ch");
Copy(FaecherNamen[Chemie ].VollName, "Chemie");
Copy(FaecherNamen[Bio ].ShortCut, "B");
Copy(FaecherNamen[Bio ].VollName, "Bio");
Copy(FaecherNamen[Informatik].ShortCut, "If");
Copy(FaecherNamen[Informatik].VollName, "Informatik")
END FaecherNamen.